Ham Radio 2000/Ham Radio 2000.iso/ham2000/misc/hcall36/cdrom.wcx

Wildcat! WCX | 1996-01-05 | 14KB | 468 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  13948 bytes  01/11/123  08:21:40pm
'! Code Segment Size  :3833 bytes
'! Data Segment Size  :5297 bytes
'! String Segment Size:10115 bytes
'! Compiled with WCC version 4.11

      Declare Function Func3177(l65534 As Long, l65532 As Long) As Integer
      Declare Function Func3649 As Integer

      Dim s4463 As String
      Dim s4467 As String
      Dim s4471 As String
      Dim s4475 As String
      Dim s4479 As String
      Dim s4483 As String
      Dim s4487 As String
      Dim s4491 As String
      Dim s4495 As String
      Dim s4499 As String
      Dim s4503 As String
      Dim s4507 As String
      Dim s4511 As String
      Dim s4515 As String
      Dim l4519 As Long
      Dim i4523 As Integer
      Dim s4525 As String
      Dim i4533 As Integer
      Dim s4535 As String
      Dim s4539 As String
      Dim s4543 As String
      Dim s4547 As String
      Dim s4551 As String
      Dim s4555 As String
      Dim s4559 As String
      Dim s4563 As String
      Dim s4567 As String
      Dim s4571 As String
      Dim s4575 As String
      Dim s4579 As String
      Dim s4583 As String
      Dim s4587 As String
      Dim s4591 As String
      Dim s4595 As String
      Dim s4599 As String
      Dim s4603 As String
      Dim s4607 As String
      Dim s4611 As String
      Dim s4615 As String
      Dim s4623 As String
      Dim s4627 As String
      Dim s4631 As String
      Dim s4635 As String
      Dim s4639 As String
      Dim ur4643 As UserRecord
      Dim s5293 As String

      Dim l65532_ As Long '! Temporary

      CarrierCheck(1213417543)
      ActivityLog "        Entered CD-Rom Call-Sign Look-Up Door"
      Do
   57   s4491 = "CDCALL.DAT"
        i4523 = 0
        i4533 = 0
        Func3649
        If Func3177(l4519, (4316)) Then
          i4523 = -1
        Else
  130     i4523 = 0
        End If
  136   If i4523 = 0 Then
          ActivityLog "  "
          ActivityLog "====================ERROR================================"
          ActivityLog "CD-ROM Call - Sign Look-Up Program needs to be registered"
          ActivityLog "====================ERROR================================"
          ActivityLog "  "
          Print Chr(1) + "|1K|*|w0000270N12|#|#|#"
          Cls
          Print "    @0D@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0A@"
          Print "    @0D@▌@09@╔═════════════════════════════════════════════════════════════════════╗@0D@▐@0A@"
          Print "    @0D@▌@09@║                 @0B@ HAMCALL - CDROM CAll-SIGN LOOKUP                   @09@║@0D@▐@0A@"
          Print "    @0D@▌@09@║                            @0B@   v3.6                                  @09@║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@║                       by CARL TICE 1-05-96                          ║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@║                   [e-mail]                           @09@║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@║            @0D@THE BAD BOY BBS! 310.378.3081 310.915.5862               @09@║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@║        @0A@This program is @8C@UNREGISTERED!@0A@ You need to have the   @0E@        @09@║@0D@▐@0A@"
          Print "    @0D@▌@09@║    @0A@Sysop call @0D@THE BAD BOY BBS!@0A@ and get this program registered     @09@ ║@0D@▐@0A@"
          Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
          Print "    @0D@▌@09@╚═════════════════════════════════════════════════════════════════════╝@0D@▐@0A@"
          Print "    @0D@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0A@"
          Delay 0.8
          Delay 0.8
          Delay 0.8
          Delay 0.8
          Delay 0.8
          Delay 0.8
          Delay 0.8
          WaitEnter
          GoTo 2770
        End If
  429   If RIPDetected Then
        Else
  444     Do While Len(s4463) < 3
            Print Chr(1) + "|1K|*|w0000270N12|#|#|#"
            Cls
            Print "    @0D@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@0A@"
            Print "    @0D@▌@09@╔═════════════════════════════════════════════════════════════════════╗@0D@▐@0A@"
            Print "    @0D@▌@09@║                 @0B@ HAMCALL - CDROM CAll-SIGN LOOKUP                   @09@║@0D@▐@0A@"
            Print "    @0D@▌@09@║                            @0B@   v3.6                                  @09@║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║                       by CARL TICE 1-05-96                          ║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║                   [e-mail]                           @09@║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║            @0D@THE BAD BOY BBS! 310.378.3081 310.915.5862               @09@║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║        @0A@You can enter one call sign, I.E. KM6FZ                      @09@║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@║                  @0A@Type @0C@QUIT@0A@ to exit out from here.                   @09@║@0D@▐@0A@"
            Print "    @0D@▌@09@║                                                                     ║@0D@▐@0A@"
            Print "    @0D@▌@09@╚═════════════════════════════════════════════════════════════════════╝@0D@▐@0A@"
            Print "    @0D@▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@0A@"
            Print "          @0F@Input Call-Sign@0E@ ";
            Input s4463
            If UCase(s4463) = "QUIT" Then
              GoTo 2440
            End If
  685       If UCase(s4463) = "EXIT" Then
              GoTo 2440
            End If
  711       If UCase(s4463) = "Q" Then
              GoTo 2440
            End If
  737       If UCase(s4463) = "KM6FZ" Then
              Print
              Print "         @09@You can reach Carl Tice at THE BAD BOY BBS!  310.378.3081"
              Print
              Print "         [e-mail]"
              Print
              WaitEnter
              s4463 = "**"
            End If
  793       If UCase(s4463) = "KA6GPN" Then
              Print
              Print "         You can reach Carl Tice at THE BAD BOY BBS!  310.378.3081"
              Print
              Print "         [e-mail]"
              Print
              WaitEnter
              s4463 = "**"
            End If
  849     Loop
  855     GoTo 1168
        End If
  861   Print Chr(1) + "|1K|*|1B00000200LC0304000F080700000F07000000|W00|Y01000400"
        Print Chr(1) + "|1U140DFQ1K0000<>HamCall v. 3.6<>|1U3B3V4A4J2400<><>|1U3B514A5P2900<><>|c01"
        Print Chr(1) + "|Y01000300|@4U3S- Look up Call Sign(s)|@4R4U- Quit Back to BBS|Y00000100"
        Print Chr(1) + "|@B36V1-05-96 Carl Tice|@B375THE BAD BOY BBS\!|@B37F310.378.3081|w040V1B0X10"
        Print Chr(1) + "|1M00383S4C4L1100000Y^M|1M01374Y4C5S1100000Q^M|#|#|#"
        Input s4483
        If UCase(s4483) = "Y" Then
  932     Do While Len(s4463) < 3
            Print Chr(1) + "|1K|*|1K|*|1B00000200LC0304000F080700000F07000000|W00|Y01000400"
            Print Chr(1) + "|1U140DFQ1K0000<>HamCall v. 3.6<>|c01|Y00000100|@B36V1-05-96 Carl Tice"
            Print Chr(1) + "|@B375THE BAD BOY BBS\!|@B37F310.378.3081|c09|Y01000200"
            Print Chr(1) + "|@2121Please Enter the Call Sign and hit Enter|c0E|Y00000100|@2F2UI.E. - "
            Print Chr(1) + "|@452TKM6FZ... or KA6GPN or type QUIT to exit."
            Print Chr(1) + "|1B00000200LK0304000F080700000F07000000|w0010271610|1U2O3IDV4J0000<><>|S0100"
            Print Chr(1) + "|B323SDC48|w0E0H1N0I10|#|#|#"
            Input s4463
          Loop
 1024   Else
 1030     GoTo 2440
        End If
 1036   If UCase(s4463) = "QUIT" Then
          GoTo 2440
        End If
 1062   If UCase(s4463) = "KM6FZ" Then
          Print Chr(1) + "|1K|*|w0000270N12|#|#|#"
          Cls
          Print "You can reach Carl Tice at THE BAD BOY BBS!  310.378.3081"
          WaitEnter
          s4463 = "**"
        End If
 1115   If UCase(s4463) = "KA6GPN" Then
          Print Chr(1) + "|1K|*|w0000270N12|#|#|#"
          Cls
          Print "You can reach Carl Tice at THE BAD BOY BBS!  310.378.3081"
          WaitEnter
          s4463 = "**"
        End If
 1168   If (s4463 = "**") = 0 Then GoTo 1194
        Reset
      Loop
 1194 Print Chr(1) + "|1K|*|w0000270N12"
      Print "!|1w0000bbg2.wav"
      Print "!|#|#|#"
      Cls
      Locate 12, 21
      Print "@0A@Please stand by......looking up data."
      Open s4499 + "call.bat" For Output As 2
      Print #2, "CD " + s4495
      Print #2, s4495
      Print #2, "Icall " + s4463 + " /S " + "> " + s4499 + "call.inf"
      Close 2
      Shell s4499 + "call.bat", ""
      Reset
      Open s4499 + "call.inf" For Input As 3
      Input #3, s4535
      Input #3, s4539
      Input #3, s4543
      Input #3, s4547
      Input #3, s4551
      Input #3, s4555
      Input #3, s4559
      Input #3, s4563
      Input #3, s4567
      Input #3, s4571
      Input #3, s4575
      Input #3, s4579
      Input #3, s4583
      Input #3, s4587
      Input #3, s4591
      Input #3, s4595
      Input #3, s4599
      Input #3, s4603
      Input #3, s4607
      Input #3, s4611
      Input #3, s4615
      Input #3, s4623
      Input #3, s4627
      Input #3, s4631
      Input #3, s4635
      Close 3
      i4533 = i4533 + 1
      Open s4499 + "callx.inf" For Output As 4
      Print #4, s4559
      Print #4, s4563
      Print #4, s4567
      Print #4, s4571
      Print #4, s4575
      Print #4, s4579
      Print #4, s4583
      Print #4, s4587
      Print #4, s4591
      Print #4, s4595
      Print #4, s4599
      Print #4, s4603
      Print #4, s4607
      Print #4, s4611
      Print #4, s4615
      Print #4, s4623
      Print #4, s4627
      Print #4, s4631
      Print #4, s4635
      Close 4
      If UCase(s4507) = "Y" Then
        Open s4511 + "call.log" For Append As 5
        Print #5, "══════════════════════════════════════════════════"
        Print #5, User.Name + " Call Sign Looked up - " + UCase(s4463)
        Print #5, "══════════════════════════════════════════════════"
        Close 5
      Else
 1891   ActivityLog "*******  Call Sign Looked up - " + UCase(s4463)
      End If
 1908 Print
      Print
      Cls
      Print ""
      DisplayTextFile(s4499 + "callx.inf")
      Print
      Print "@1E@Would you like to Download this information as a file?@09@ ";
      Input s4467
      If UCase(s4467) = "Y" Or UCase(s4467) = "YES" Then
        AddMarkFileDirect(s4499 + "callx.inf")
        Download "", 1213417543
        Print Chr(1) + "|1K|*|w0000270N12|#|#|#"
      End If
      Do
 2029   Print
        Print "@1E@Would you like to search to see if this person is a user on this bbs?@09@ ";
        Input s4487
        If UCase(s4487) = "Y" Or UCase(s4487) = "YES" Then
          Open s4499 + "callx.inf" For Input As 6
          Input #6, s4471
          Input #6, s4475
          Input #6, s4639
          Close 6
          If GetUser(ur4643, s4639) Then
            Print
            Print "@0A@Name: @0D@"; ur4643.Name; "@0A@ is a user here."
            Print "@1E@Would you like to write this user a message?@09@";
            Input s5293
            If UCase(s5293) = "Y" Or UCase(s5293) = "YES" Then
              EnterMessage
            End If
 2234     Else
 2240       Print "@0A@"
            Print s4639; " @0D@was not found in the database. This does not mean that"
            Print "the user is a not here but rather that they may use a different"
            Print "spelling or maybe even a different name."
            Print
          End If
        End If
 2284   Del s4499 + "call.inf"
        Del s4499 + "callx.inf"
        Del s4499 + "call.bat"
        Print "@1E@Do you wish to look up another Call-Sign? @09@";
        Input s4479
        If (UCase(s4479) = "Y" Or UCase(s4479) = "YES") = 0 Then GoTo 2543
        s4463 = ""
        GoTo 57
        If (UCase(s4479) = "N" Or UCase(s4479) = "NO") = 0 Then GoTo 2543
        GoTo 2440
      Loop
 2440 If RIPDetected Then
        Print Chr(1) + "|1K|*|*|1B00000200LC0304000F080700000F07000000|Y01000400"
        Print Chr(1) + "|1U140DFQ1K0000<>HamCall v. 3.6<>|c09|W00|Y00000100"
        Print Chr(1) + "|@2H26I would like to thank Jesus Christ for making the ultimate"
        Print Chr(1) + "|@232Gsacriface of death for all of us. And, for the grace of giving"
        Print Chr(1) + "|@2X2Q   that gift freely with no strings attached.|c02"
        Print Chr(1) + "|@0R3YSupport this BBS\! If you don't...it may not be here the next time you call."
        Print Chr(1) + "|c0E|@754MCall us\!|@6056THE BAD BOY BBS\!"
        Print Chr(1) + "|@405O310.378.3081    or     310.915.5862"
        Print Chr(1) + "|1B00000201E60301000F080700040F07000000|1U606D9T7C1V20<>Continue<>C^M"
        Print Chr(1) + "|w0000000000|#|#|#"
        WaitEnter
        End
      End If
 2543 Cls
      Print "@0D@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
      Print "▌@09@╔═══════════════════════════════════════════════════════════════════════════╗@0D@▐"
      Print "▌@09@║                   @0C@ Thanks for using Call-Sign LookUp                      @09@║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║@0C@    For this and other great products or just to check out a great bbs!    @09@║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║            @1C@ THE BAD BOY BBS!    310.378.3081  or  310.915.5862@09@            ║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@╚═══════════════════════════════════════════════════════════════════════════╝@0D@▐"
      Print "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@07@"
      Delay 0.8
      Delay 0.8
      Delay 0.8
      Print
      Print
      Print "@0D@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
      Print "▌@09@╔═══════════════════════════════════════════════════════════════════════════╗@0D@▐"
      Print "▌@09@║@0C@ This Program is Registered to :                                           @09@║@0D@▐"
      Print "▌@09@╚═══════════════════════════════════════════════════════════════════════════╝@0D@▐"
      Print "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@07@"
      Locate 17, 36
      Print "@0A@@BBS@"
      Print
      Print
      Print
      WaitEnter
      Print "@CLS@@09@"
      ActivityLog "Exited CD-Rom Call-Sign Look-UP Door."
      End
 2770 Cls
      Print "@0D@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
      Print "▌@09@╔═══════════════════════════════════════════════════════════════════════════╗@0D@▐"
      Print "▌@09@║                   @0C@ Thanks for using Call-Sign LookUp                      @09@║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║@0C@    For this and other great products or just to check out a great bbs!    @09@║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@║            @1C@ THE BAD BOY BBS!    310.378.3081  or  310.915.5862@09@            ║@0D@▐"
      Print "▌@09@║                                                                           ║@0D@▐"
      Print "▌@09@╚═══════════════════════════════════════════════════════════════════════════╝@0D@▐"
      Print "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@07@"
      Delay 0.8
      Delay 0.8
      Delay 0.8
      Print
      Print
      Print "@0D@▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
      Print "▌@09@╔═══════════════════════════════════════════════════════════════════════════╗@0D@▐"
      Print "▌@09@║@0C@ This Program is Registered to :                                           @09@║@0D@▐"
      Print "▌@09@╚═══════════════════════════════════════════════════════════════════════════╝@0D@▐"
      Print "▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀@07@"
      Locate 17, 36
      Print "@0A@@BBS@"
      Print
      Print
      Print
      WaitEnter
      Print "@CLS@@09@"
      ActivityLog "Exited CD-Rom Call-Sign Look-UP Door."
      End

'! Called 1 time
      Function Func3177(l65534 As Long, l65532 As Long) As Integer
        Dim l65467 As Long
        Dim i65471 As Integer
        Dim l65473 As Long
        Dim i65477 As Integer
        Dim s65483 As String*7
        Dim s65490 As String*30
        Dim l65520 As Long
        Dim l65524 As Long
        Dim i65528 As Integer

        s65490 = UCase(MakeWild.BBSName)
        s65490 = Trim(s65490)
        l65524 = 0
 3254   For i65528 = 1 To Len(s65490) Step 1
          l65524 = l65524 + Asc(Mid(s65490, i65528, 1))
        Next
 3358   s65483 = UCase(MakeWild.RegString)
        s65483 = Trim(s65483)
        l65520 = 0
 3427   For i65528 = 1 To Len(s65483) Step 1
          l65520 = l65520 + Asc(Mid(s65483, i65528, 1))
        Next
 3531   l65520 = l65520 + l65524
        l65520 = l65520 * 7
        l65520 = l65520 * l65532
        l65520 = l65520 + l65532
        If l65520 = l65534 Then
          Func3177 = - 1
        Else
 3635     Func3177 = 0
        End If
 3641
      End Function

'! Called 1 time
      Function Func3649 As Integer
        s4525 = ProgPath + "CDCALL.DAT"
        If Exists(s4525) Then
          Open s4525 For Input As 1
          Input #1, s4495
          Input #1, s4499
          Input #1, s4503
          Input #1, s4515
          Input #1, s4507
          Input #1, s4511
          Input #1, l4519
          Close 1
        Else
 3765     ActivityLog "  "
          ActivityLog "====================ERROR============================"
          ActivityLog "   Can't find CdCall.Dat file for CD-ROM Call - Sgn"
          ActivityLog "====================ERROR============================="
          ActivityLog "  "
          Cls
          Print " There is a system error - The Sysop has been notified."
          Print
          Print
          WaitEnter
          End
        End If
 3825
      End Function